/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / tabify.elc.z / tabify.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 53 75 6e 20 4a |ggum.no |on Sun J|
|00000030| 61 6e 20 31 34 20 30 36 | 3a 34 38 3a 32 33 20 31 |an 14 06|:48:23 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000060| 31 39 2e 30 2f 6c 69 73 | 70 2f 74 61 62 69 66 79 |19.0/lis|p/tabify|
|00000070| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|00000080| 72 73 69 6f 6e 20 31 39 | 2e 33 30 2e 37 30 2e 36 |rsion 19|.30.70.6|
|00000090| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000a0| 65 72 73 69 6f 6e 20 46 | 53 46 20 32 2e 31 30 0a |ersion F|SF 2.10.|
|000000b0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000c0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|000000d0| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|000000e0| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|000000f0| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000100| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000110| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000120| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000130| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000140| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000150| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|00000160| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|00000170| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 2e 32 |cs-versi|on "19.2|
|00000180| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))).  |  (error|
|00000190| 20 22 60 74 61 62 69 66 | 79 2e 65 6c 27 20 77 61 | "`tabif|y.el' wa|
|000001a0| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|000001b0| 6d 61 63 73 20 31 39 2e | 32 39 20 6f 72 20 6c 61 |macs 19.|29 or la|
|000001c0| 74 65 72 22 29 29 0a 0a | 0a 23 40 32 35 33 20 43 |ter"))..|.#@253 C|
|000001d0| 6f 6e 76 65 72 74 20 61 | 6c 6c 20 74 61 62 73 20 |onvert a|ll tabs |
|000001e0| 69 6e 20 72 65 67 69 6f | 6e 20 74 6f 20 6d 75 6c |in regio|n to mul|
|000001f0| 74 69 70 6c 65 20 73 70 | 61 63 65 73 2c 20 70 72 |tiple sp|aces, pr|
|00000200| 65 73 65 72 76 69 6e 67 | 20 63 6f 6c 75 6d 6e 73 |eserving| columns|
|00000210| 2e 0a 43 61 6c 6c 65 64 | 20 6e 6f 6e 2d 69 6e 74 |..Called| non-int|
|00000220| 65 72 61 63 74 69 76 65 | 6c 79 2c 20 74 68 65 20 |eractive|ly, the |
|00000230| 72 65 67 69 6f 6e 20 69 | 73 20 73 70 65 63 69 66 |region i|s specif|
|00000240| 69 65 64 20 62 79 20 61 | 72 67 75 6d 65 6e 74 73 |ied by a|rguments|
|00000250| 0a 53 54 41 52 54 20 61 | 6e 64 20 45 4e 44 2c 20 |.START a|nd END, |
|00000260| 72 61 74 68 65 72 20 74 | 68 61 6e 20 62 79 20 74 |rather t|han by t|
|00000270| 68 65 20 70 6f 73 69 74 | 69 6f 6e 20 6f 66 20 70 |he posit|ion of p|
|00000280| 6f 69 6e 74 20 61 6e 64 | 20 6d 61 72 6b 2e 0a 54 |oint and| mark..T|
|00000290| 68 65 20 76 61 72 69 61 | 62 6c 65 20 60 74 61 62 |he varia|ble `tab|
|000002a0| 2d 77 69 64 74 68 27 20 | 63 6f 6e 74 72 6f 6c 73 |-width' |controls|
|000002b0| 20 74 68 65 20 73 70 61 | 63 69 6e 67 20 6f 66 20 | the spa|cing of |
|000002c0| 74 61 62 20 73 74 6f 70 | 73 2e 1f 0a 28 64 65 66 |tab stop|s...(def|
|000002d0| 61 6c 69 61 73 20 27 75 | 6e 74 61 62 69 66 79 20 |alias 'u|ntabify |
|000002e0| 23 5b 28 73 74 61 72 74 | 20 65 6e 64 29 20 22 8a |#[(start| end) ".|
|000002f0| 8c 65 08 7d 88 09 62 88 | c2 c3 c4 c5 23 85 2b 00 |.e.}..b.|....#.+.|
|00000300| 60 69 c4 1e 06 1e 07 1e | 08 c3 09 78 88 0e 08 60 |`i......|...x...`|
|00000310| 7c 88 0e 07 6a 88 2b 82 | 09 00 2a 87 22 20 5b 65 ||...j.+.|..*." [e|
|00000320| 6e 64 20 73 74 61 72 74 | 20 73 65 61 72 63 68 2d |nd start| search-|
|00000330| 66 6f 72 77 61 72 64 20 | 22 09 22 20 6e 69 6c 20 |forward |"." nil |
|00000340| 74 20 69 6e 64 65 6e 74 | 2d 74 61 62 73 2d 6d 6f |t indent|-tabs-mo|
|00000350| 64 65 20 63 6f 6c 75 6d | 6e 20 74 61 62 2d 62 65 |de colum|n tab-be|
|00000360| 67 5d 20 34 20 28 23 24 | 20 2e 20 34 36 33 29 20 |g] 4 (#$| . 463) |
|00000370| 22 72 22 5d 29 0a 23 40 | 33 35 34 20 43 6f 6e 76 |"r"]).#@|354 Conv|
|00000380| 65 72 74 20 6d 75 6c 74 | 69 70 6c 65 20 73 70 61 |ert mult|iple spa|
|00000390| 63 65 73 20 69 6e 20 72 | 65 67 69 6f 6e 20 74 6f |ces in r|egion to|
|000003a0| 20 74 61 62 73 20 77 68 | 65 6e 20 70 6f 73 73 69 | tabs wh|en possi|
|000003b0| 62 6c 65 2e 0a 41 20 67 | 72 6f 75 70 20 6f 66 20 |ble..A g|roup of |
|000003c0| 73 70 61 63 65 73 20 69 | 73 20 70 61 72 74 69 61 |spaces i|s partia|
|000003d0| 6c 6c 79 20 72 65 70 6c | 61 63 65 64 20 62 79 20 |lly repl|aced by |
|000003e0| 74 61 62 73 0a 77 68 65 | 6e 20 74 68 69 73 20 63 |tabs.whe|n this c|
|000003f0| 61 6e 20 62 65 20 64 6f | 6e 65 20 77 69 74 68 6f |an be do|ne witho|
|00000400| 75 74 20 63 68 61 6e 67 | 69 6e 67 20 74 68 65 20 |ut chang|ing the |
|00000410| 63 6f 6c 75 6d 6e 20 74 | 68 65 79 20 65 6e 64 20 |column t|hey end |
|00000420| 61 74 2e 0a 43 61 6c 6c | 65 64 20 6e 6f 6e 2d 69 |at..Call|ed non-i|
|00000430| 6e 74 65 72 61 63 74 69 | 76 65 6c 79 2c 20 74 68 |nteracti|vely, th|
|00000440| 65 20 72 65 67 69 6f 6e | 20 69 73 20 73 70 65 63 |e region| is spec|
|00000450| 69 66 69 65 64 20 62 79 | 20 61 72 67 75 6d 65 6e |ified by| argumen|
|00000460| 74 73 0a 53 54 41 52 54 | 20 61 6e 64 20 45 4e 44 |ts.START| and END|
|00000470| 2c 20 72 61 74 68 65 72 | 20 74 68 61 6e 20 62 79 |, rather| than by|
|00000480| 20 74 68 65 20 70 6f 73 | 69 74 69 6f 6e 20 6f 66 | the pos|ition of|
|00000490| 20 70 6f 69 6e 74 20 61 | 6e 64 20 6d 61 72 6b 2e | point a|nd mark.|
|000004a0| 0a 54 68 65 20 76 61 72 | 69 61 62 6c 65 20 60 74 |.The var|iable `t|
|000004b0| 61 62 2d 77 69 64 74 68 | 27 20 63 6f 6e 74 72 6f |ab-width|' contro|
|000004c0| 6c 73 20 74 68 65 20 73 | 70 61 63 69 6e 67 20 6f |ls the s|pacing o|
|000004d0| 66 20 74 61 62 20 73 74 | 6f 70 73 2e 1f 0a 28 64 |f tab st|ops...(d|
|000004e0| 65 66 61 6c 69 61 73 20 | 27 74 61 62 69 66 79 20 |efalias |'tabify |
|000004f0| 23 5b 28 73 74 61 72 74 | 20 65 6e 64 29 20 22 8a |#[(start| end) ".|
|00000500| 8c 08 62 88 c1 79 88 60 | 5c 6e 7d 88 08 62 88 c3 |..b..y.`|\n}..b..|
|00000510| c4 c5 c6 23 85 2a 00 69 | c6 1e 07 1e 08 c1 94 60 |...#.*.i|.......`|
|00000520| 7c 88 0e 08 6a 88 2a 82 | 0f 00 2a 87 22 20 5b 73 ||...j.*.|..*." [s|
|00000530| 74 61 72 74 20 30 20 65 | 6e 64 20 72 65 2d 73 65 |tart 0 e|nd re-se|
|00000540| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 5b 20 |arch-for|ward "[ |
|00000550| 09 5d 5b 20 09 5d 5b 20 | 09 5d 2a 22 20 6e 69 6c |.][ .][ |.]*" nil|
|00000560| 20 74 20 69 6e 64 65 6e | 74 2d 74 61 62 73 2d 6d | t inden|t-tabs-m|
|00000570| 6f 64 65 20 63 6f 6c 75 | 6d 6e 5d 20 34 20 28 23 |ode colu|mn] 4 (#|
|00000580| 24 20 2e 20 38 39 32 29 | 20 22 72 22 5d 29 0a 28 |$ . 892)| "r"]).(|
|00000590| 70 72 6f 76 69 64 65 20 | 28 71 75 6f 74 65 20 74 |provide |(quote t|
|000005a0| 61 62 69 66 79 29 29 0a |                         |abify)).|        |
+--------+-------------------------+-------------------------+--------+--------+